home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Resource for Source: C/C++
/
Resource for Source - C-C++.iso
/
misc_src
/
owlbwcc
/
bdefcase.cpp
< prev
next >
Wrap
C/C++ Source or Header
|
1995-11-01
|
4KB
|
115 lines
/**********************************************************************/
/* BDEFCASE.cpp by Bob Bourbonnais */
/* released to the public domain 1/26/92 */
/* This program shows how to trap for individual */
/* Button messages in the DefChild Process using */
/* switch and case. */
/* This is the old style of windows message processing */
/* It is recommended that the newer Dynamic Dispatch */
/* Virtual Table, DDVT, style be used instead of switch and case. */
/* See BDDVTBTN.cpp for an example of DDVT. */
/**********************************************************************/
#include <owl.h>
#include <dialog.h>
#include "bwcc.h" // needed for BWCC
class TMyDialog : public TDialog
{
public:
TMyDialog(LPSTR lpDialogName) // constructor calls
: TDialog(NULL,lpDialogName) // base class constructor
{
BWCCGetVersion(); // activate Borland Windows Custom Controls
}
virtual void DefChildProc(RTMessage Msg); // redefined default
// message processing
// Note: if this is a Window instead of a dialog box, then
// redefine DefCommandProc instead.
};
void TMyDialog::DefChildProc(RTMessage Msg)
{
switch (Msg.WParam) // switch and case to process button messages
{ // this is the old style of message processing
case (3): // The next program, BDDVTBTN, shows a much
{ // better way of processing individual button
MessageBeep(0); // messages
BWCCMessageBox(HWindow,"Button #3 The Abort Button Was Pressed",
"Button Pressed",MB_OK);
break;
};
case (4):
{
MessageBeep(0);
BWCCMessageBox(HWindow,"Button #4 The Retry Button Was Pressed",
"Button Pressed",MB_OK);
break;
};
case (5):
{
MessageBeep(0);
BWCCMessageBox(HWindow,"Button #5 The Ignore Button Was Pressed",
"Button Pressed",MB_OK);
break;
}
case (6):
{
MessageBeep(0);
BWCCMessageBox(HWindow,"Button #6 The Yes Button Was Pressed",
"Button Pressed",MB_OK);
break;
}
case (7):
{
MessageBeep(0);
BWCCMessageBox(HWindow,"Button #7 The No Button Was Pressed",
"Button Pressed",MB_OK);
break;
}
case (8):
{
MessageBeep(0);
BWCCMessageBox(HWindow,"Button #8 The Button that says Button Was Pressed",
"Button Pressed",MB_OK);
break;
}
default:
{
MessageBeep(0);
BWCCMessageBox(HWindow,"Message Out of range","Error",MB_OK);
break;
}
}
TDialog::DefChildProc(Msg);
};
class TDialog1App : public TApplication // Application Class to contain
{ // the application
public:
TDialog1App(LPSTR lpName, HANDLE hInstance, // constructor calls the
HANDLE hPrevInstance, // base class constructor
LPSTR lpCmdLine, int nCmdShow)
:TApplication(lpName, hInstance,
hPrevInstance,
lpCmdLine, nCmdShow) {};
virtual void InitMainWindow(); // overrides base class InitMainWindow
};
void TDialog1App::InitMainWindow() // to initialize a dialog box
{ // as the main window
MainWindow = new TMyDialog("MAINWINDOWDIALOG");
}
int PASCAL WinMain(HANDLE hInstance, // main entry point from
HANDLE hPrevInstance, // windows to this program
LPSTR lpCmdLine , int nCmdShow)
{
TDialog1App Dialog1("Dialog Tester",hInstance, // create instance of
hPrevInstance, // the dialog application
lpCmdLine,nCmdShow);
Dialog1.Run(); // run it
return (Dialog1.Status); // exit
}
/**********************************************************************/